home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Tele / M / MFHost < prev    next >
Encoding:
Text File  |  1987-11-26  |  1.9 KB  |  41 lines  |  [TEXT/MSWD]
  1. ( Background Host Mode Procedure )
  2. (   by Harald Smit   11/27/87    )
  3. ( Function:                      )
  4. (   The following procedure permits the user to switch to another        )
  5. (   application under MultiFinder while still allowing Red Ryder to go   )
  6. (   into Host Mode.  After the time delay specified by the user Host Mode)
  7. (   is activated and remains functional in the background while using    )
  8. (   MultiFinder to work between active applications other than Red Ryder.)
  9. ( Note:                          )
  10. (   If you desire to switch back to the Command Mode of Red Ryder after  )
  11. (   activating this procedure, you need only re-execute this procedure.  )
  12. (   Of course, you will probably have to use Initiate Procedure to       )
  13. (   execute it since the terminal window is hidden so that Red Ryder     )
  14. (   won't be accidently entered by clicking in its window while in       )
  15. (   another application.         )
  16. ( I recommend the use of MFMenu if you are used to switching by using    )
  17. ( the small icons in the corner when MultiFinder is active.              )
  18. ( I hope whoever reads this finds this procedure as useful as I do. Now, )
  19. ( because of this procedure I can have Red Ryder in Host Mode at all     )
  20. ( times waiting for calls, while I am still running other applications   )
  21.  
  22. CLEAR
  23. COPYINTO X$,Please enter the number of seconds to wait before this
  24. COPYINTO Y$,procedure enters host mode.
  25. COPYINTO Z$,                         by Harald Smit (HJSMIT)
  26. QUERY1 A$
  27. STRINGTONUM A$,A%
  28. PANICAFTER A%
  29. ONPANIC JUMPTO GOHOST
  30. ( If the user doesn't type Zork before the time he specified, the        )
  31. ( ON PANIC statement will start the host mode )
  32. PROMPT Zork
  33. END
  34.  
  35. :GOHOST
  36. ( Hide the terminal window, so it won't be clicked upon from MultiFinder )
  37. SCREEN OFF
  38. HOST
  39. ( The above line might be more useful as a DO to a separate host         )
  40. ( procedure, but I just kept it generic to allow easy tailoring          )
  41. END